;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/1/2011
;;;		   EDITED: 7/1/2011
;;;
(DEFUN C:RDNAME ()
  (vl-load-com)
  (c:svlayr)
  (setq llt "-"
        modf "NOTE"
        colr "4"
  );setq
  (if (eq (getvar "tilemode") 1)
    NIL
    (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) :vlax-true)
  )
;;;  (command ".mspace")
  (if dimscl nil (load"dimscl" "\nFile DIMSCALE.LSP not loaded! "))
  (dimscl)
  (if gvpno nil (load"gvpno"  "\nFile GVPNO.LSP not loaded! "))
  (if (eq (getvar "tilemode") 1)
    NIL
   (gvpno)
  )
  (c:mklayr)
  (if txtsize
    (txtsize "140")
    (progn(load "txtsize" "\nFile TXTSIZE.LSP not loaded! ")(txtsize "140"))
  )
  (if upoint nil (load"upoint"  "\nFile UPOINT.LSP not loaded! "))
  (if uangle nil (load"uangle"  "\nFile UANGLE.LSP not loaded! "))
  (setq pt1 (upoint 1 "" "Enter text insertion point" nil nil))
  (setq rang (uangle 1 "" "Rotation angle" 0 pt1))
  (IF ustr NIL (LOAD "ustr" "\nFile USTR.LSP not loaded! "))
  (SETQ road_name (ustr 1 "Road name" (IF road_name road_name "ROAD") T))
  (SETQ text_list
         (LIST (CONS 0 "TEXT")
               (CONS 1 road_name)
               (CONS 7 "Standard")
               (CONS 10 pt1)
               (CONS 11 pt1)
               (CONS 40 (* dimsc 0.140))
               (CONS 41 1.0)
               (CONS 50 rang)
               (CONS 51 0.0)
               (CONS 67 0)
               (CONS 71 0)
               (CONS 72 1)
               (CONS 73 2)
         )
  )
  (ENTMAKE text_list)
  (c:rslayr)
  (PROGN)
)
